home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World Interactive 1995 August / Personal Computer World (PCW Interactive) (August 1995).iso / demos / bio / bioforge / script / beachzip.scp < prev    next >
Text File  |  1995-01-18  |  2KB  |  118 lines
  1.  
  2. { PREZIPMOMBO
  3. ^àî = 1
  4. @Ç¢ PLAYER
  5. I @Çô ZIP_TRIP_START THEN é 1
  6. I @Çô ZIP_TRIP THEN é 1
  7. I @Çô ZIP_TRIP_STOP THEN é 1
  8. A OFF
  9.  
  10. i LEX ZIPTRIP
  11. M ZIP_TRIP_START 45 CONTINUE
  12. @Çå `éë 
  13. W 10
  14. @Çå `éë 
  15. W 10
  16. @Çå `éë 
  17. W 10
  18. @Çå `éë 
  19. W 10
  20. @Çå `éë 
  21.  
  22.  
  23. M ZIP_TRIP CONTINUE
  24. @Çå `äí 
  25. é 0
  26. }
  27. { POSTZIPMOMBO
  28. @Ç¢ PLAYER
  29.  
  30.  
  31. M ZIP_TRIP_STOP 45
  32. A ON
  33. ^àî = 0
  34. }
  35. { ZIP1_A_BLOCK_USE
  36. I @Ç¥ PREZIPMOMBO THEN é 
  37.  @Ç╢ ZIPPY ZIP1_A ZIP1_B 5 0 0 0 CARRY CURFIG
  38. @Ç¥ POSTZIPMOMBO
  39. }
  40. { ZIP1_B_BLOCK_USE
  41. I @Ç¥ PREZIPMOMBO THEN é 
  42.  @Ç╢ ZIPPY ZIP1_B ZIP1_A 5 0 0 0 CARRY CURFIG
  43. @Ç¥ POSTZIPMOMBO
  44. }
  45. { ZIP2_A_BLOCK_USE
  46. I @Ç¥ PREZIPMOMBO THEN é 
  47.  @Ç╢ ZIPPY ZIP2_A ZIP2_B 5 0 0 0 CARRY CURFIG
  48. @Ç¥ POSTZIPMOMBO
  49. }
  50. { ZIP2_B_BLOCK_USE
  51. I @Ç¥ PREZIPMOMBO THEN é 
  52.  @Ç╢ ZIPPY ZIP2_B ZIP2_A 5 0 0 0 CARRY CURFIG
  53. @Ç¥ POSTZIPMOMBO
  54. }
  55. { ZIP3_A_BLOCK_USE
  56. I @Ç¥ PREZIPMOMBO THEN é 
  57.  @Ç╢ ZIPPY ZIP3_A ZIP3_B 5 0 0 0 CARRY CURFIG
  58. @Ç¥ POSTZIPMOMBO
  59. }
  60. { ZIP3_B_BLOCK_USE
  61. I @Ç¥ PREZIPMOMBO THEN é 
  62.  @Ç╢ ZIPPY ZIP3_B ZIP3_A 5 0 0 0 CARRY CURFIG
  63. @Ç¥ POSTZIPMOMBO
  64. }
  65. { ZIP4_A_BLOCK_USE
  66. I @Ç¥ PREZIPMOMBO THEN é 
  67.  @Ç╢ ZIPPY ZIP4_A ZIP4_B 5 0 0 0 CARRY CURFIG
  68. @Ç¥ POSTZIPMOMBO
  69. }
  70. { ZIP4_B_BLOCK_USE
  71. I @Ç¥ PREZIPMOMBO THEN é 
  72.  @Ç╢ ZIPPY ZIP4_B ZIP4_A 5 0 0 0 CARRY CURFIG
  73. @Ç¥ POSTZIPMOMBO
  74. }
  75. { ZIP5_A_BLOCK_USE
  76. I @Ç¥ PREZIPMOMBO THEN é 
  77.  @Ç╢ ZIPPY ZIP5_A ZIP5_B 5 0 0 0 CARRY CURFIG
  78. @Ç¥ POSTZIPMOMBO
  79. }
  80. { ZIP5_B_BLOCK_USE
  81. I @Ç¥ PREZIPMOMBO THEN é 
  82.  @Ç╢ ZIPPY ZIP5_B ZIP5_A 5 0 0 0 CARRY CURFIG
  83. @Ç¥ POSTZIPMOMBO
  84. }
  85. { ZIP6_A_BLOCK_USE
  86. I @Ç¥ PREZIPMOMBO THEN é 
  87.  @Ç╢ ZIPPY ZIP6_A ZIP6_B 5 0 0 0 CARRY CURFIG
  88. @Ç¥ POSTZIPMOMBO
  89. }
  90. { ZIP6_B_BLOCK_USE
  91. I @Ç¥ PREZIPMOMBO THEN é 
  92.  @Ç╢ ZIPPY ZIP6_B ZIP6_A 5 0 0 0 CARRY CURFIG
  93. @Ç¥ POSTZIPMOMBO
  94. }
  95. { ZIP7_A_BLOCK_USE
  96. I @Ç¥ PREZIPMOMBO THEN é 
  97.  @Ç╢ ZIPPY ZIP7_A ZIP7_B 5 0 0 0 CARRY CURFIG
  98. @Ç¥ POSTZIPMOMBO
  99. }
  100. { ZIP7_B_BLOCK_USE
  101. I @Ç¥ PREZIPMOMBO THEN é 
  102.  @Ç╢ ZIPPY ZIP7_B ZIP7_A 5 0 0 0 CARRY CURFIG
  103. @Ç¥ POSTZIPMOMBO
  104. }
  105. { ZIP8_A_BLOCK_USE
  106. I @Ç¥ PREZIPMOMBO THEN é 
  107.  @Ç╢ ZIPPY ZIP8_A ZIP8_B 5 0 0 0 CARRY CURFIG
  108. @Ç¥ POSTZIPMOMBO
  109. }
  110. { ZIP8_B_BLOCK_USE
  111. I @Ç¥ PREZIPMOMBO THEN é 
  112.  @Ç╢ ZIPPY ZIP8_B ZIP8_A 5 0 0 0 CARRY CURFIG
  113. @Ç¥ POSTZIPMOMBO
  114. }
  115.  
  116.  
  117. //$ 26 - version number
  118.